home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet bezpieczenstwa / mini Pentoo LiveCD 2006.1 / mpentoo-2006.1.iso / modules / nessus-2.2.8.mo / usr / lib / nessus / plugins / xtelw_detect.nasl < prev    next >
Text File  |  2005-03-31  |  2KB  |  77 lines
  1. #
  2. # This script was written by Michel Arboi <arboi@alussinan.org>
  3. #
  4. # GPL
  5. #
  6. # I thought of putting both tests in a file, but that's quicker like this
  7. # I think
  8.  
  9.  
  10. if(description)
  11. {
  12.   script_id(11120);
  13. #  script_cve_id("CVE-MAP-NOMATCH");
  14.   script_version ("$Revision: 1.6 $");
  15.  
  16.   script_name(english:"xtelw detection", francais:"detection de xtelw");
  17.  
  18.   desc["english"] = "
  19. xteld is running on this port in HyperTerminal mode. 
  20. This service allows users to connect to the 'Teletel' network. 
  21. Some of the servers are expensive. 
  22. Note that by default, xteld forbids access to the most expensive 
  23. services.
  24.  
  25. Risk factor : None";
  26.  
  27.   desc["francais"] = "
  28. xteld tourne sur ce port en mode Hyperterminal.
  29. Ce service permet de se connecter sur le rΘseau 'TΘlΘtel'. 
  30. Certains des serveurs sont chers.
  31. Notez que par dΘfaut, xteld interdit l'accΦs aux serveurs les plus chers.
  32.  
  33. Risque : Aucun";
  34.  
  35.  
  36.   script_description(english:desc["english"], francais:desc["francais"]);
  37.  
  38.   summary["english"] = "Detect xteld in HyperTerminal mode";
  39.   summary["francais"] = "DΘtecte xteld en mode HyperTerminal";
  40.   script_summary(english:summary["english"], francais:summary["francais"]);
  41.  
  42.   script_category(ACT_GATHER_INFO);
  43.  
  44.   script_copyright(english:"This script is Copyright (C) 2002 Michel Arboi",
  45.         francais:"Ce script est Copyright (C) 2002 Michel Arboi");
  46.   script_family(english:"Service detection");
  47.   script_dependencie("find_service.nes");
  48.   script_require_ports("Services/unknown", 1314);
  49.  
  50.   exit(0);
  51. }
  52.  
  53. #
  54.  
  55. include("misc_func.inc");
  56.  
  57. # Quick way
  58. port=1314;
  59. # Slow way
  60. #port = get_kb_item("Services/unknown"); 
  61. #if (! port) { port=1314; }
  62.  
  63. if (! get_port_state(port)) exit(0);
  64. if (known_service(port: port)) exit(0);
  65.  
  66. banner = get_unknown_banner(port: port, dontfetch:0);
  67. if (! banner) exit(0);
  68.  
  69. # I'm too lazy to parse the service list :-)
  70. if (("Service Minitel" >< banner) && ("Xteld" >< banner))
  71. {
  72.  security_note(port);
  73.  register_service(port: port, proto: "xtelw");
  74. }
  75.  
  76.  
  77.